home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr12
/
mufund12.zip
/
F0MENU.BAT
< prev
next >
Wrap
DOS Batch File
|
1994-07-25
|
3KB
|
118 lines
:MAIN.BAT EXECUTES FUNDS TRACKING SYSTEM RUNCOB F0
:
:START
ECHO OFF
cls
cd \$FUNDS
bluescrn
IF EXIST F8TEST.DAT DEL F8TEST.DAT
IF EXIST F8DETAIL.DAT DEL F8DETAIL.DAT
IF EXIST F5A.BAT DEL F5A.BAT
IF EXIST F5S.BAT DEL F5S.BAT
IF EXIST F6C.BAT DEL F6C.BAT
IF EXIST F6S.BAT DEL F6S.BAT
IF EXIST F7D.BAT DEL F7D.BAT
IF EXIST F7R.BAT DEL F7R.BAT
IF EXIST F8C.BAT DEL F8C.BAT
IF EXIST F10.BAT DEL F10.BAT
IF EXIST F11.BAT DEL F11.BAT
IF EXIST F13.BAT DEL F13.BAT
IF EXIST F14.BAT DEL F14.BAT
IF EXIST F15.BAT DEL F15.BAT
IF EXIST C:\$FUNDS\$DAT$NAM.$$$ DEL C:\$FUNDS\$DAT$NAM.$$$
IF EXIST C:\$FUNDS\$RPT$NAM.$$$ DEL C:\$FUNDS\$RPT$NAM.$$$
IF EXIST C:\$FUNDS\$RET$C00.$$$ DEL C:\$FUNDS\$RET$C00.$$$
IF EXIST C:\$FUNDS\$RET$C99.$$$ DEL C:\$FUNDS\$RET$C99.$$$
IF EXIST C:\$FUNDS\$SEL$C**.$$$ DEL C:\$FUNDS\$SEL$C**.$$$
IF EXIST C:\$FUNDS\$TYP$COD.$$$ DEL C:\$FUNDS\$TYP$COD.$$$
IF EXIST C:\$FUNDS\$D*.$$$ DEL C:\$FUNDS\$D*.$$$
IF EXIST C:\$FUNDS\DATA\$DAT$DAT.$$$ DEL C:\$FUNDS\DATA\$DAT$DAT.$$$
IF EXIST C:\$FUNDS\DATA\$T$E$M$P.$$$ DEL C:\$FUNDS\DATA\$T$E$M$P.$$$
IF EXIST C:\$FUNDS\RPT\$RPT$FIL.$$$ DEL C:\$FUNDS\RPT\$RPT$FIL.$$$
IF EXIST C:\$FUNDS\RPT\$T$E$M$P.RPT DEL C:\$FUNDS\RPT\$T$E$M$P.RPT
:CLEAR THE RETURN CODE 99 FILE
COPY C:\$FUNDS\EMPTY.$$$ C:\$FUNDS\$RET$C99.$$$
RUNCOB F0
IF EXIST C:\$FUNDS\$RET$C00.$$$ GOTO A0
IF EXIST C:\$FUNDS\$SEL$CD1.$$$ GOTO A1
IF EXIST C:\$FUNDS\$SEL$CD2.$$$ GOTO A2
IF EXIST C:\$FUNDS\$SEL$CD3.$$$ GOTO A3
IF EXIST C:\$FUNDS\$SEL$CD4.$$$ GOTO A4
IF EXIST C:\$FUNDS\$SEL$C5A.$$$ GOTO A5
IF EXIST C:\$FUNDS\$SEL$C6C.$$$ GOTO A6
IF EXIST C:\$FUNDS\$SEL$C7D.$$$ GOTO A7D
IF EXIST C:\$FUNDS\$SEL$C7R.$$$ GOTO A7R
IF EXIST C:\$FUNDS\$SEL$C8C.$$$ GOTO A8
IF EXIST C:\$FUNDS\$SEL$CD9.$$$ GOTO A9
IF EXIST C:\$FUNDS\$SEL$C10.$$$ GOTO A10
IF EXIST C:\$FUNDS\$SEL$C11.$$$ GOTO A11
IF EXIST C:\$FUNDS\$SEL$C12.$$$ GOTO A12
IF EXIST C:\$FUNDS\$SEL$C13.$$$ GOTO A13
IF EXIST C:\$FUNDS\$SEL$C14.$$$ GOTO A14
IF EXIST C:\$FUNDS\$SEL$C15.$$$ GOTO A15
GOTO START
:A0
GOTO END
:A1
DIR C:\$FUNDS\DATA > C:\$FUNDS\$D$I$R$1.$$$
SORT < C:\$FUNDS\$D$I$R$1.$$$ > C:\$FUNDS\$D$I$R$2.$$$
TYPE C:\$FUNDS\$D$I$R$2.$$$ | MORE
PAUSE
GOTO START
:A2
DIR C:\$FUNDS\RPT > C:\$FUNDS\$D$I$R$1.$$$
SORT < C:\$FUNDS\$D$I$R$1.$$$ > C:\$FUNDS\$D$I$R$2.$$$
TYPE C:\$FUNDS\$D$I$R$2.$$$ | MORE
PAUSE
GOTO START
:A3
DIR C:\$FUNDS\DATA > C:\$FUNDS\$D$I$R$1.$$$
SORT < C:\$FUNDS\$D$I$R$1.$$$ > C:\$FUNDS\$D$I$R$2.$$$
TYPE C:\$FUNDS\$D$I$R$2.$$$ > LPT1
GOTO START
:A4
DIR C:\$FUNDS\RPT > C:\$FUNDS\$D$I$R$1.$$$
SORT < C:\$FUNDS\$D$I$R$1.$$$ > C:\$FUNDS\$D$I$R$2.$$$
TYPE C:\$FUNDS\$D$I$R$2.$$$ > LPT1
GOTO START
:A5
CALL C:\$FUNDS\F5A.BAT
CALL C:\$FUNDS\F5S.BAT
GOTO START
:A6
CALL C:\$FUNDS\F6C.BAT
CALL C:\$FUNDS\F6S.BAT
GOTO START
:A7D
CALL C:\$FUNDS\F7D.BAT
GOTO START
:A7R
CALL C:\$FUNDS\F7R.BAT
GOTO START
:A8
CALL C:\$FUNDS\F8C.BAT
GOTO START
:A9
GOTO START
:A10
CALL C:\$FUNDS\F10.BAT
GOTO START
:A11
CALL C:\$FUNDS\F11.BAT
GOTO START
:A12
GOTO START
:A13
CALL C:\$FUNDS\F13C.BAT
GOTO START
:A14
CALL C:\$FUNDS\F14.BAT
GOTO START
:A15
CALL C:\$FUNDS\F15.BAT
GOTO START
:END
CLS
BLUESCRN
CD C:\